home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / QUES.DXR / 00137.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  1.2 KB  |  58 lines
  1. on exitFrame
  2.   global cards, whereto
  3.   robo = 0
  4.   if whereto = "doc" then
  5.     repeat with i = 1 to 3
  6.       if item i of cards = "0" then
  7.         robo = 1
  8.       end if
  9.     end repeat
  10.     if robo = "0" then
  11.       go(1, the moviePath & "enter3.dxr")
  12.     else
  13.       sprite(61).visible = 0
  14.       go("regular")
  15.     end if
  16.   else
  17.     if whereto = "hat" then
  18.       repeat with i = 1 to 4
  19.         if item i of cards = "0" then
  20.           robo = 1
  21.         end if
  22.       end repeat
  23.       if robo = "0" then
  24.         go(1, the moviePath & "enter4.dxr")
  25.       else
  26.         sprite(61).visible = 0
  27.         go("regular")
  28.       end if
  29.     else
  30.       if whereto = "poz" then
  31.         repeat with i = 1 to 6
  32.           if item i of cards = "0" then
  33.             robo = 1
  34.           end if
  35.         end repeat
  36.         if robo = "0" then
  37.           go(1, the moviePath & "enter5.dxr")
  38.         else
  39.           sprite(61).visible = 0
  40.           go("regular")
  41.         end if
  42.       else
  43.         repeat with i = 1 to 8
  44.           if item i of cards = "0" then
  45.             robo = 1
  46.           end if
  47.         end repeat
  48.         if robo = "0" then
  49.           go(1, the moviePath & "enter6.dxr")
  50.         else
  51.           sprite(61).visible = 0
  52.           go("regular")
  53.         end if
  54.       end if
  55.     end if
  56.   end if
  57. end
  58.